#Region "Imports directives"
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Net
Imports DevExpress.CodeRush
Imports DevExpress.CodeRush.Core
Imports DevExpress.CodeRush.StructuralParser
Imports ActiproSoftware.SyntaxEditor
Imports ActiproSoftware.SyntaxEditor.KeyPressTrigger
#End Region

Namespace VBCodeCommenter

    ''' <summary>The Class Tabbed layout
    ''' </summary>
    ''' <remarks>
    ''' 	<para><b>History:</b></para>
    ''' <list type="table">
    ''' 	<listheader>
    ''' 		<term>Term</term>
    ''' 		<description>Description</description>
    ''' 	</listheader>
    ''' 	<item>
    ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:42:47 PM</para></term>
    ''' 		<description>Created XML Comment. </description>
    ''' ''' 	</item>
    ''' </list>
    ''' </remarks>
    ''' <example>
    ''' </example>
    Public Class TabbedLayout


#Region "Properties"

        ''' <summary>Variable [_solutionName] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:42:55 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _solutionName As String

        ''' <summary>Gets or sets the value of the property named: SolutionName
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:42:59 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SolutionName() As String
            Get
                Return _solutionName
            End Get
            Set(ByVal Value As String)
                _solutionName = Value
            End Set
        End Property

        ''' <summary>Variable [_projectName] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:43:04 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _projectName As String

        ''' <summary>Gets or sets the value of the property named: ProjectName
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:43:07 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property ProjectName() As String
            Get
                Return _projectName
            End Get
            Set(ByVal Value As String)
                _projectName = Value
            End Set
        End Property

        ''' <summary>Initialized Variable [_docName] Dev express. code rush. core. text document = Nothing
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:43:11 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _docName As DevExpress.CodeRush.Core.TextDocument = Nothing

        ''' <summary>Gets or sets the value of the property named: DocName
        ''' </summary>
        ''' <value>Property Dev express. code rush. core. text document
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:43:14 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DocName() As DevExpress.CodeRush.Core.TextDocument
            Get
                Return _docName
            End Get
            Set(ByVal Value As DevExpress.CodeRush.Core.TextDocument)
                _docName = Value
            End Set
        End Property

        ''' <summary>Variable [_CurrentCursorLocation] Integer
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:43:18 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _CurrentCursorLocation As Integer

        ''' <summary>Gets or sets the value of the property named: CurrentCursorLocation
        ''' </summary>
        ''' <value>Property Integer
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:43:22 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property CurrentCursorLocation() As Integer
            Get
                Return _CurrentCursorLocation
            End Get
            Set(ByVal Value As Integer)
                _CurrentCursorLocation = Value
            End Set
        End Property

        ''' <summary>Variable [_xMLCommentElement] As <seealso cref= "System.Object"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:43:26 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLCommentElement As Object

        ''' <summary>Gets or sets the value of the property named: XMLCommentElement
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.Object"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:44:32 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLCommentElement() As Object
            Get
                Return _xMLCommentElement
            End Get
            Set(ByVal Value As Object)
                _xMLCommentElement = Value
            End Set
        End Property

        ''' <summary>Initialized Variable [_DeveloperName] As <seealso cref= "System.String"/> = CommenterOptionsPage.DeveloperName
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:44:36 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _DeveloperName As String = CommenterOptionsPage.DeveloperName

        ''' <summary>Initialized Variable [_DeveloperCompany] As <seealso cref= "System.String"/> = CommenterOptionsPage.DeveloperCompany
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:44:40 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _DeveloperCompany As String = CommenterOptionsPage.DeveloperCompany

        ''' <summary>Initialized Variable [_DeveloperPhone] As <seealso cref= "System.String"/> = CommenterOptionsPage.DeveloperPhone
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:44:43 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _DeveloperPhone As String = CommenterOptionsPage.DeveloperPhone

        ''' <summary>Initialized Variable [_DeveloperEmail] As <seealso cref= "System.String"/> = CommenterOptionsPage.DeveloperEmail
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:44:47 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _DeveloperEmail As String = CommenterOptionsPage.DeveloperEmail

        ''' <summary>Gets or sets the value of the property named: DeveloperEmail
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:44:51 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DeveloperEmail() As String
            Get
                Return _DeveloperEmail
            End Get
            Set(ByVal value As String)
                _DeveloperEmail = value
            End Set
        End Property

        ''' <summary>Gets or sets the value of the property named: DeveloperPhone
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:44:55 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DeveloperPhone() As String
            Get
                Return _DeveloperPhone
            End Get
            Set(ByVal value As String)
                _DeveloperPhone = value
            End Set
        End Property

        ''' <summary>Gets or sets the value of the property named: DeveloperCompany
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:44:59 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DeveloperCompany() As String
            Get
                Return _DeveloperCompany
            End Get
            Set(ByVal value As String)
                _DeveloperCompany = value
            End Set
        End Property

        ''' <summary>Gets or sets the value of the property named: DeveloperName
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:45:02 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property DeveloperName() As String
            Get
                Return _DeveloperName
            End Get
            Set(ByVal value As String)
                _DeveloperName = value
            End Set
        End Property

        ''' <summary>Variable [_methodType] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:45:15 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _methodType As String

        ''' <summary>Gets or sets the value of the property named: MethodType
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:45:27 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property MethodType() As String
            Get
                Return _methodType
            End Get
            Set(ByVal Value As String)
                _methodType = Value
            End Set
        End Property

        ''' <summary>
        ''' Method name property field is used to store the current method name of the function or sub method.
        ''' </summary>
        ''' <remarks>
        ''' XML Comment Utility
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term><para>Date: 7/9/2007</para><para>Time: 8:15:27 AM</para></term>
        ''' 		<description>Created XML comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        Private _methodName As String

        ''' <summary>
        ''' Method name property is used to store the current method name of the function or sub method.
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term><para>Date: 7/9/2007</para><para>Time: 8:16:41 AM</para></term>
        ''' 		<description>Created XML comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        Public Property MethodName() As String
            Get
                Return _methodName
            End Get
            Set(ByVal Value As String)
                _methodName = Value
            End Set
        End Property

        ''' <summary>XML summary property field is used to store the current XML comment summary data of an existing XML comment.
        ''' </summary>
        ''' <remarks>XML Comment Utility
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term><para>Date: 7/9/2007</para><para>Time: 8:18:02 AM</para></term>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        Private _xMLSummary As String

        ''' <summary>XML summary property is used to store the current XML comment summary data of an existing XML comment.
        ''' </summary>
        ''' <remarks>XML Comment Utility.
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term><para>Date: 7/9/2007</para><para>Time: 8:19:09 AM</para></term>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        Public Property XMLSummary() As String
            Get
                Return _xMLSummary
            End Get
            Set(ByVal Value As String)
                _xMLSummary = Value
            End Set
        End Property

        ''' <summary>Variable [_xMLHistory] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:52:50 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLHistory As String

        ''' <summary>Gets or sets the value of the property named: XMLHistory
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:02 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLHistory() As String
            Get
                Return _xMLHistory
            End Get
            Set(ByVal Value As String)
                _xMLHistory = Value
            End Set
        End Property

        ''' <summary>Variable [_xMLDescription] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:08 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLDescription As String

        ''' <summary>Gets or sets the value of the property named: XMLDescription
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:11 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLDescription() As String
            Get
                Return _xMLDescription
            End Get
            Set(ByVal Value As String)
                _xMLDescription = Value
            End Set
        End Property

        ''' <summary>Variable [_xMLRemarks] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:15 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLRemarks As String

        ''' <summary>Gets or sets the value of the property named: XMLRemarks
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:19 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLRemarks() As String
            Get
                Return _xMLRemarks
            End Get
            Set(ByVal Value As String)
                _xMLRemarks = Value
            End Set
        End Property

        ''' <summary>Variable [_xMLReturns] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:26 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLReturns As String

        ''' <summary>Gets or sets the value of the property named: XMLReturns
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:30 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLReturns() As String
            Get
                Return _xMLReturns
            End Get
            Set(ByVal Value As String)
                _xMLReturns = Value
            End Set
        End Property

        ''' <summary>Variable [_xMLValue] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:35 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLValue As String

        ''' <summary>Gets or sets the value of the property named: XMLValue
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:39 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLValue() As String
            Get
                Return _xMLValue
            End Get
            Set(ByVal Value As String)
                _xMLValue = Value
            End Set
        End Property

        ''' <summary>Variable [_xMLExample] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:43 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _xMLExample As String

        ''' <summary>Gets or sets the value of the property named: XMLExample
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:47 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLExample() As String
            Get
                Return _xMLExample
            End Get
            Set(ByVal Value As String)
                _xMLExample = Value
            End Set
        End Property

        ''' <summary>Variable [_parameterCount] Integer
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:51 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _parameterCount As Integer

        ''' <summary>Gets or sets the value of the property named: ParameterCount
        ''' </summary>
        ''' <value>Property Integer
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:53:54 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property ParameterCount() As Integer
            Get
                Return _parameterCount
            End Get
            Set(ByVal Value As Integer)
                _parameterCount = Value
            End Set
        End Property

        ''' <summary>Variable [_methodLineText] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:00 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _methodLineText As String

        ''' <summary>Gets or sets the value of the property named: MethodLineText
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:03 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property MethodLineText() As String
            Get
                Return _methodLineText
            End Get
            Set(ByVal Value As String)
                _methodLineText = Value
            End Set
        End Property

        ''' <summary>Variable [_methodArray] As <seealso cref= "System.Array"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:08 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _methodArray As ArrayList

        ''' <summary>Gets or sets the value of the property named: MethodArray
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.Array"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:11 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property MethodArray() As ArrayList
            Get
                Return _methodArray
            End Get
            Set(ByVal Value As ArrayList)
                _methodArray = Value
            End Set
        End Property

        ''' <summary>Variable [_XMLparentType] As <seealso cref= "System.String"/>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:15 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private _XMLparentType As String

        ''' <summary>Gets or sets the value of the property named: XMLParentType
        ''' </summary>
        ''' <value>Property As <seealso cref= "System.String"/>
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:19 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property XMLParentType() As String
            Get
                Return _XMLparentType
            End Get
            Set(ByVal Value As String)
                _XMLparentType = Value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageZero] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:23 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageZero As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageZero
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:27 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageZero() As TabPage
            Get
                Return m_SavedTabPageZero
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageZero = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageOne] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:31 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageOne As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageOne
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:35 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageOne() As TabPage
            Get
                Return m_SavedTabPageOne
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageOne = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageTwo] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:38 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageTwo As TabPage

        ''' <summary>
        ''' Type Property Gets or sets the value of the property named: SavedTabPageTwo
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <value>
        ''' Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:34:28 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageTwo() As TabPage
            Get
                Return m_SavedTabPageTwo
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageTwo = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageThree] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:42 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageThree As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageThree
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:45 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageThree() As TabPage
            Get
                Return m_SavedTabPageThree
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageThree = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageFour] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:49 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageFour As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageFour
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:52 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageFour() As TabPage
            Get
                Return m_SavedTabPageFour
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageFour = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageFive] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:56 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageFive As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageFive
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:54:59 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageFive() As TabPage
            Get
                Return m_SavedTabPageFive
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageFive = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageSix] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:55:02 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageSix As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageSix
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:55:08 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageSix() As TabPage
            Get
                Return m_SavedTabPageSix
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageSix = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageSeven] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:55:11 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageSeven As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageSeven
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:55:16 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageSeven() As TabPage
            Get
                Return m_SavedTabPageSeven
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageSeven = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageEight] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:55:27 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageEight As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageEight
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:55:31 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageEight() As TabPage
            Get
                Return m_SavedTabPageEight
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageEight = value
            End Set
        End Property

        ''' <summary>Variable [m_SavedTabPageNine] Tab page
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:58:52 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private m_SavedTabPageNine As TabPage

        ''' <summary>Gets or sets the value of the property named: SavedTabPageNine
        ''' </summary>
        ''' <value>Property Tab page
        ''' </value>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:58:55 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Property SavedTabPageNine() As TabPage
            Get
                Return m_SavedTabPageNine
            End Get
            Set(ByVal value As TabPage)
                m_SavedTabPageNine = value
            End Set
        End Property

#End Region

#Region "Constructor"

        ''' <summary>The Sub New
        ''' </summary>
        ''' <param name="strMethodArray">Parameter strMethodArray As <seealso cref= "System.Array"/></param>
        ''' <param name="strMethodLineText">Parameter strMethodLineText As <seealso cref= "System.String"/></param>
        ''' <param name="strMethodType">Parameter strMethodType As <seealso cref= "System.String"/></param>
        ''' <param name="strMethodName">Parameter strMethodName As <seealso cref= "System.String"/></param>
        ''' <param name="strSummary">Parameter strSummary As <seealso cref= "System.String"/></param>
        ''' <param name="strHistory">Parameter strHistory As <seealso cref= "System.String"/>
        ''' <para>Hello line two</para></param>
        ''' <param name="strDescription">Parameter strDescription As <seealso cref= "System.String"/></param>
        ''' <param name="strRemarks">Parameter strRemarks As <seealso cref= "System.String"/></param>
        ''' <param name="CurrentReturnsText">Parameter CurrentReturnsText As <seealso cref= "System.String"/></param>
        ''' <param name="CurrentValueText">Parameter CurrentValueText As <seealso cref= "System.String"/></param>
        ''' <param name="Parameters">Parameter Parameters List ( of Commenter plug in. xml parameter</param>
        ''' <param name="ParametersCounter">Parameter ParametersCounter Integer</param>
        ''' <param name="ParentType">Parameter ParentType As <seealso cref= "System.String"/></param>
        ''' <param name="HistoryData">Parameter strListArray List ( of Commenter plug in. XML history</param>
        ''' <param name="strReturnType">Parameter strReturnType As <seealso cref= "System.String"/></param>
        ''' <param name="strDocName">Parameter strDocName Dev express. code rush. core. text document</param>
        ''' <param name="strExample">Parameter strExample As <seealso cref= "System.String"/></param>
        ''' <param name="strSeeAlsoArray">Parameter strSeeAlsoArray List ( of Commenter plug in. XML see also</param>
        ''' <param name="strPermissionArray">Parameter strPermissionArray List ( of Commenter plug in. XML permissions</param>
        ''' <param name="strExceptionsArray">Parameter strExceptionsArray List ( of Commenter plug in. XML exception</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:59:16 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Sub New(ByVal NameSpaceName As String, ByVal DocumentName As DevExpress.CodeRush.Core.TextDocument, ByVal CommentLineText As String, ByVal strMethodArray As ArrayList, ByVal strMethodLineText As String, ByVal strMethodType As String, ByVal strMethodName As String, ByVal strSummary As String, ByVal strHistory As String, _
        ByVal strDescription As String, ByVal strRemarks As String, ByVal CurrentReturnsText As String, ByVal CurrentValueText As String, ByVal Parameters As List(Of CommenterPlugIn.XmlParameter), ByVal ParametersCounter As Integer, ByVal ParentType As String, ByVal HistoryData As List(Of CommenterPlugIn.XMLHistory), ByVal strReturnType As String, ByVal strDocName As DevExpress.CodeRush.Core.TextDocument, ByVal strExample As String, ByVal strSeeAlsoArray As List(Of CommenterPlugIn.XMLSeeAlso), ByVal strPermissionArray As List(Of CommenterPlugIn.XMLPermissions), ByVal strExceptionsArray As List(Of CommenterPlugIn.XMLException))
            ' This call is required by the Windows Form Designer.
            InitializeComponent()
            CurrentPath = CommenterPlugIn.AppPath
            If CurrentPath.ToUpper.StartsWith(My.Settings.PathParse) Then
                CurrentPath = CurrentPath.Substring(6, CurrentPath.Length - 6)
            End If
            CNetHelpProvider.HelpNamespace = CurrentPath & My.Resources.BackSlashText & My.Settings.ApplicationHelpFile

            ' Add any initialization after the InitializeComponent() call.
            Dim currentFileName As String = DevExpress.CodeRush.Core.Document.Active.Name.ToString
            Dim currentIndentSize As Integer = DevExpress.CodeRush.Core.Document.Active.IndentSize
            Dim activeSection As LanguageElement
            activeSection = CodeRush.Source.Active
            Dim strParentType As String = String.Empty
            Dim strCurrentElementType As String = String.Empty
            Dim strParentName As String = String.Empty
            Try
                strParentType = activeSection.Parent.ElementType.ToString
                strParentName = activeSection.Parent.Name
            Catch nx As NullReferenceException

            Catch ex As Exception

            End Try


            MethodArray = strMethodArray
            DocName = strDocName
            Try
                ProjectName = CodeRush.Project.Active.FileName.Substring(CodeRush.Project.Active.FileName.LastIndexOf(My.Resources.BackSlashText) + 1, CodeRush.Project.Active.FileName.Length - (CodeRush.Project.Active.FileName.LastIndexOf(My.Resources.BackSlashText) + 1))
            Catch ex As Exception

            End Try
            Try
                SolutionName = CodeRush.Solution.Active.FullName.Substring(CodeRush.Solution.Active.FullName.LastIndexOf(My.Resources.BackSlashText) + 1, CodeRush.Solution.Active.FullName.Length - (CodeRush.Solution.Active.FullName.LastIndexOf(My.Resources.BackSlashText) + 1))
            Catch ex As Exception

            End Try

            Try
                Me.ParametersDataGridView.Rows.Clear()
                Dim ParmeterCounter As Integer = 1
                For item As Integer = 0 To ParametersCounter - 1
                    If Parameters.Item(item).name = Parameters.Item(item).text Then
                        Dim ParametersText As String = MethodArray.Item(ParmeterCounter).ToString.Substring(MethodArray.Item(ParmeterCounter).ToString.IndexOf(My.Resources.WordAs), MethodArray.Item(ParmeterCounter).ToString.Length - MethodArray.Item(ParmeterCounter).ToString.IndexOf(My.Resources.WordAs))
                        If ParametersText.EndsWith(My.Resources.CommaAndUnderScoreText) Then
                            ParametersText = ParametersText.Substring(0, ParametersText.Length - My.Resources.CommaAndUnderScoreText.Length)
                        ElseIf ParametersText.EndsWith(My.Resources.UnderScoreText) Then
                            ParametersText = ParametersText.Substring(0, ParametersText.Length - My.Resources.UnderScoreText.Length)

                        End If
                        If ParametersText.StartsWith(My.Resources.WordAsAndSpace) Then
                            ParametersText = ParametersText.Substring(My.Resources.WordAsAndSpace.Length, ParametersText.Length - My.Resources.WordAsAndSpace.Length)
                        End If
                        If ParametersText.ToUpper.StartsWith(My.Resources.UpperCaseTextSystem) Then
                            ParametersText = ParametersText.Substring(My.Resources.UpperCaseTextSystem.Length, ParametersText.Length - My.Resources.UpperCaseTextSystem.Length)
                        End If
                        If ParametersText.Trim.ToUpper.EndsWith(My.Resources.OpenAndCloseParenthesesText) Then
                            ParametersText = My.Resources.SeeAlsocrefText & SingleQuote & My.Resources.SystemType & My.Resources.SystemTypeArray & SingleQuote & My.Resources.CrefClosingSystemTag & ParametersText.Trim
                        End If
                        ParametersText = My.Resources.ParameterText & My.Resources.LineBlankSpaceText & Parameters.Item(item).text & My.Resources.LineBlankSpaceText & GetSystemTypeRef(ParametersText.Trim)
                        Dim Row As String() = {Parameters.Item(item).name, ParametersText}
                        Me.ParametersDataGridView.Rows.Add(Row)
                        ParmeterCounter += 1
                    Else
                        Dim Row As String() = {Parameters.Item(item).name, Parameters.Item(item).text}
                        Me.ParametersDataGridView.Rows.Add(Row)
                    End If
                Next
            Catch ex As Exception

            End Try
            Try
                Me.HistoryDataGridView.Rows.Clear()
                Dim ListCounter As Integer = HistoryData.Count
                For item As Integer = 0 To ListCounter - 1
                    Dim Row As String() = {HistoryData.Item(item).DevName, HistoryData.Item(item).DevCompany, HistoryData.Item(item).DevPhone, HistoryData.Item(item).DevEmail, HistoryData.Item(item).DevMachine, HistoryData.Item(item).Description}
                    Me.HistoryDataGridView.Rows.Add(Row)
                Next
                Me.HistoryDataGridView.Refresh()
            Catch ex As Exception

            End Try
            Try
                Me.SeeAlsoDataGridView.Rows.Clear()
                Dim ListCounter As Integer = strSeeAlsoArray.Count
                For item As Integer = 0 To ListCounter - 1
                    Dim Row As String() = {strSeeAlsoArray.Item(item).CrefLink, strSeeAlsoArray.Item(item).CrefDescription}
                    'Dim TestRow As New DataGridViewRow
                    'TestRow.SetValues(Row)
                    'If Not Me.SeeAlsoDataGridView.Rows.Contains(TestRow) Then
                    'End If
                    Me.SeeAlsoDataGridView.Rows.Add(Row)
                Next
            Catch ex As Exception

            End Try
            Try
                Me.PermissionDataGridView.Rows.Clear()
                Dim ListCounter As Integer = strPermissionArray.Count
                For item As Integer = 0 To ListCounter - 1
                    Dim Row As String() = {strPermissionArray.Item(item).CrefLink, strPermissionArray.Item(item).CrefDescription}
                    Me.PermissionDataGridView.Rows.Add(Row)
                Next
            Catch ex As Exception

            End Try
            Try
                Me.ExceptionsDataGridView.Rows.Clear()
                Dim ListCounter As Integer = strExceptionsArray.Count
                For item As Integer = 0 To ListCounter - 1
                    Dim Row As String() = {strExceptionsArray.Item(item).CrefLink, strExceptionsArray.Item(item).CrefDescription}
                    Me.ExceptionsDataGridView.Rows.Add(Row)
                Next
            Catch ex As Exception

            End Try
            MethodLineText = strMethodLineText
            MethodType = strMethodType

            MethodName = strMethodName
            XMLParentType = ParentType
            If Not strSummary = String.Empty Then
                XMLSummary = strSummary & Chr(10) & CommentLineText
            End If
            XMLHistory = strHistory
            XMLDescription = strDescription
            XMLRemarks = strRemarks
            XMLReturns = CurrentReturnsText
            XMLValue = CurrentValueText
            XMLExample = strExample
            XMLParentType = ParentType
            ParameterCount = ParametersCounter

            'Get current method scope
            Dim MethodAccessLevel As String = String.Empty
            If strMethodLineText.Trim.StartsWith(My.Resources.AccessLevelPublic) Then
                MethodAccessLevel = My.Resources.AccessLevelPublic
            ElseIf strMethodLineText.Trim.StartsWith(My.Resources.AccessLevelPrivate) Then
                MethodAccessLevel = My.Resources.AccessLevelPrivate
            ElseIf strMethodLineText.Trim.StartsWith(My.Resources.AccessLevelProtectedFriend) Then
                MethodAccessLevel = My.Resources.AccessLevelProtectedFriend
            ElseIf strMethodLineText.Trim.StartsWith(My.Resources.AccessLevelFriend) Then
                MethodAccessLevel = My.Resources.AccessLevelFriend
            ElseIf strMethodLineText.Trim.StartsWith(My.Resources.AccessLevelProtected) Then
                MethodAccessLevel = My.Resources.AccessLevelProtected
            Else
                MethodAccessLevel = My.Resources.AccessLevelPrivate
            End If

            Select Case MethodType.Trim
                Case My.Resources.TypeProperty
                    If strSummary = String.Empty Then
                        If MethodLineText.ToLower.Contains(My.Resources.ValueReadOnly) Then
                            XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeProperty & My.Resources.ColonAndSpace & My.Resources.GetsPropertyValue & My.Resources.LineBlankSpaceText & MethodName
                            XMLSummary += Chr(10) & CommentLineText
                        Else
                            XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeProperty & My.Resources.LineBlankSpaceText & My.Resources.GetsSetsPropertyValue & My.Resources.LineBlankSpaceText & MethodName
                            XMLSummary += Chr(10) & CommentLineText

                        End If
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If
                    If CurrentValueText = String.Empty Then
                        XMLValue = My.Resources.TypeProperty & My.Resources.LineBlankSpaceText & GetSystemTypeRef(MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText)).Trim)
                    End If
                Case My.Resources.TypeDelegate
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeDelegate & My.Resources.LineBlankSpaceText & ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(MethodName))
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)

                    End If
                Case My.Resources.TypeInterface
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeInterface & My.Resources.LineBlankSpaceText & ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(MethodName))
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeVariable
                    Select Case XMLParentType
                        Case My.Resources.StructParentType
                            Dim StructureValueType As String = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText)).Trim

                            If strSummary = String.Empty Then
                                XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeVariable & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket & My.Resources.LineBlankSpaceText & GetSystemTypeRef(StructureValueType)
                                XMLSummary += Chr(10) & CommentLineText
                                Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                                XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                            End If
                        Case Else
                            Dim SystemValueType As String = String.Empty
                            Try
                                SystemValueType = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText)).Trim()
                            Catch ex As Exception

                            End Try

                            Try
                                If strSummary = String.Empty Then
                                    XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeVariable & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket & My.Resources.LineBlankSpaceText & GetSystemTypeRef(SystemValueType)
                                    XMLSummary += Chr(10) & CommentLineText
                                    Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                                    XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                                End If
                            Catch ex As Exception

                            End Try

                    End Select
                Case My.Resources.TypeInitializedVariable
                    Select Case XMLParentType
                        Case My.Resources.StructParentType
                            Dim StructureValue As String = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText)).Trim
                            Dim StructureValueType As String = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.WordAsAndSpace), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.WordAsAndSpace)).Trim
                            StructureValueType = StructureValueType.Substring(StructureValueType.IndexOf(My.Resources.LineBlankSpaceText), StructureValueType.Length - (My.Resources.WordAsAndSpace.Length + My.Resources.SpaceEqualSpace.Length + StructureValue.Length - 1)).Trim
                            If strSummary = String.Empty Then
                                XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeInitializedVariable & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket & My.Resources.LineBlankSpaceText & GetSystemTypeRef(StructureValueType) & My.Resources.SpaceEqualSpace & StructureValue
                                XMLSummary += Chr(10) & CommentLineText
                                Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                                XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                            End If
                        Case Else
                            Dim SystemValue As String = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText)).Trim
                            Dim SystemValueType As String = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.WordAsAndSpace), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.WordAsAndSpace)).Trim
                            SystemValueType = SystemValueType.Substring(SystemValueType.IndexOf(My.Resources.LineBlankSpaceText), SystemValueType.Length - (My.Resources.WordAsAndSpace.Length + My.Resources.SpaceEqualSpace.Length + SystemValue.Length - 1)).Trim
                            If strSummary = String.Empty Then
                                XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeInitializedVariable & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket & My.Resources.LineBlankSpaceText & GetSystemTypeRef(SystemValueType) & My.Resources.SpaceEqualSpace & SystemValue
                                XMLSummary += Chr(10) & CommentLineText
                                Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                                XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                            End If

                    End Select
                Case My.Resources.TypeClass
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeClass & My.Resources.LineBlankSpaceText & ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(MethodName))
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeModule
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeModule & My.Resources.LineBlankSpaceText & ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(MethodName))
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeStructure
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeStructure & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeEnum
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeEnum & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeEnumElement
                    If strSummary = String.Empty Then
                        If MethodLineText.Contains(My.Resources.EqualSign) Then
                            Dim EnumElementValue As String = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText), MethodLineText.Length - (MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText))).Trim
                            XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeEnumElement & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket & My.Resources.LineBlankSpaceText & My.Resources.HasAValueOf & My.Resources.LineBlankSpaceText & EnumElementValue
                        Else
                            XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeEnumElement & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket
                        End If
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeConst
                    Dim ConstValue As String = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.LineBlankSpaceText)).Trim
                    Dim ConstValueType As String = MethodLineText.Substring(MethodLineText.LastIndexOf(My.Resources.WordAsAndSpace), MethodLineText.Length - MethodLineText.LastIndexOf(My.Resources.WordAsAndSpace)).Trim
                    ConstValueType = ConstValueType.Substring(ConstValueType.IndexOf(My.Resources.LineBlankSpaceText), ConstValueType.Length - (My.Resources.WordAsAndSpace.Length + My.Resources.SpaceEqualSpace.Length + ConstValue.Length - 1)).Trim

                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeConst & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket & My.Resources.LineBlankSpaceText & GetSystemTypeRef(ConstValueType) & My.Resources.SpaceEqualSpace & ConstValue
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeEvent
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeEvent & My.Resources.LineBlankSpaceText & My.Resources.LeftBracket & MethodName & My.Resources.RightBracket & My.Resources.LineBlankSpaceText & My.Resources.Fires
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeFunction
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeFunction & My.Resources.LineBlankSpaceText & ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(MethodName))
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

                Case My.Resources.TypeSub
                    If strSummary = String.Empty Then
                        XMLSummary = My.Resources.WordType & My.Resources.LineBlankSpaceText & My.Resources.TypeSub & My.Resources.LineBlankSpaceText & ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(MethodName))
                        XMLSummary += Chr(10) & CommentLineText
                        Dim tempText As String = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.XMLSummaryOptionsEditorNameText, String.Empty)
                        XMLSummary += HandleSummaryMacroReplacement(tempText, DocumentName, NameSpaceName, strSummary)
                    End If

            End Select
        End Sub
#End Region

#Region "Variables"

        ''' <summary>
        ''' Type Initialized Variable [IntelSenseTrigger] New Actipro software. syntax editor. key press trigger ( my. settings. editor trigger key, Tru = My.Settings.EditorTriggerKey)
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:34:49 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public IntelSenseTrigger As New ActiproSoftware.SyntaxEditor.KeyPressTrigger(My.Settings.EditorTriggerKey, True, My.Settings.EditorTriggerKey)

        ''' <summary>
        ''' Type Variable [MemberListSelectedItem] Actipro software. syntax editor. intelli prompt member list item
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:34:56 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private MemberListSelectedItem As ActiproSoftware.SyntaxEditor.IntelliPromptMemberListItem

        ''' <summary>
        ''' Type Initialized Variable [CurrentPath] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:35:01 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private CurrentPath As String = String.Empty

        ''' <summary>
        ''' Type Initialized Variable [CurrentSelectedItem] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:35:09 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private CurrentSelectedItem As String = String.Empty

        ''' <summary>
        ''' Type Initialized Variable [CurrentSelectedText] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:35:16 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private CurrentSelectedText As String = String.Empty

        ''' <summary>
        ''' Type Initialized Variable [SingleQuote] As <seealso cref= "System.Char"/> = Chr("34")
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:35:25 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private SingleQuote As Char = Chr("34")

        ''' <summary>
        ''' Type Initialized Variable [KnownAbbreviations] String () = New String () {"desc,description,num,number,rem,remember = _
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:35:35 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Shared ReadOnly KnownAbbreviations As String() = New String() {"desc,description,num,number,rem,remember", _
         "util,utilities,obj,object,str,string", _
         "ar,asyncron result,max,maximum,min,minimum", _
         "abs,absolute,nr,number,no,number", _
         "mem,memory,ex,exception,s1,string 1", _
         "s2,string 2,org,original,obs,obsolete", _
         "ret,return,val,value,cb,collection base", _
         "sc,string collection,msg,message,func,function", _
         "var,variable,ch,character,pt,point", _
         "rect,rectangle,vec,vector,x,x", _
         "y,y,x1,x1,y1,y1", _
         "x2,x2,y2,y2,u,u texture coordinate", _
         "v,v texture coordinate,u1,u texture coordinate 1,v1,v texture coordinate 1", _
         "u2,u texture coordinate 2,v2,v texture coordinate 2,diff,diffuse", _
         "spec,specular,bump,bump mapping,pos,position", _
         "mat,matrix,mtx,matrix,norm,normal", _
         "tang,tangent,bionorm,bionormal,col,color", _
         "ea,event arguments,arg,argument,args,arguments", _
         "ui,user interface,gui,graphical user interface,dx,DirectX", _
         "fx,effect,sfx,sound effect,bmp,bitmap", _
         "img,image,sys,system,`1,"}


#End Region

#Region "FormEvents"

        ''' <summary>
        ''' Type Sub Tabbed layout   load
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:35:47 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub TabbedLayout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If sender Is Nothing OrElse e Is Nothing Then
                Return
            End If
            DocumentingFormCalled = True
            Me.lblEditorTrigger.Text = My.Settings.HintTextEditorTiggerKey & My.Resources.LineBlankSpaceText & Chr(34) & My.Settings.EditorTriggerKey & Chr(34)


            If DeveloperName Is Nothing OrElse DeveloperName = String.Empty Then
                DeveloperName = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.DeveloperNameText, String.Empty)

            End If
            If DeveloperCompany Is Nothing OrElse DeveloperCompany = String.Empty Then
                DeveloperCompany = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.DeveloperCompanyText, String.Empty)

            End If
            If DeveloperPhone Is Nothing OrElse DeveloperPhone = String.Empty Then
                DeveloperPhone = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.DeveloperPhoneText, String.Empty)

            End If
            If DeveloperEmail Is Nothing OrElse DeveloperEmail = String.Empty Then
                DeveloperEmail = VBCodeCommenter.CommenterOptionsPage.Storage.ReadString(My.Resources.CommenterOptionsText, My.Resources.txtDeveloperEmailText, String.Empty)

            End If
            Dim Counter As Integer = 0
            Try
                If Not MethodArray Is Nothing Then
                    For Each item As String In MethodArray
                        If Counter = 0 Then
                            Me.CurrentItem.Text = item
                        Else
                            Me.CurrentItem.Text += vbCrLf & item
                        End If
                        Counter += 1
                    Next
                Else
                    Me.CurrentItem.Text = MethodLineText
                End If
            Catch ex As Exception

            End Try
            Me.SummaryEditor.Text = XMLSummary
            ShowPage(Me.SummaryTabPage, SavedTabPageZero)
            Me.SummaryEditor.KeyPressTriggersEnabled = True
            Me.SummaryEditor.AutoReplaceTriggersEnabled = True

            Try
                Me.SummaryEditor.Document.LoadLanguageFromXml(CurrentPath & My.Resources.BackSlashText & My.Settings.KeyPressTriggersFileName, 0)
            Catch ex As Exception

            Finally

            End Try

            Me.RemarksEditor.Text = XMLRemarks
            ShowPage(Me.RemarksTabPage, SavedTabPageOne)
            Me.RemarksEditor.KeyPressTriggersEnabled = True
            Me.RemarksEditor.AutoReplaceTriggersEnabled = True
            Try
                Me.RemarksEditor.Document.LoadLanguageFromXml(CurrentPath & My.Resources.BackSlashText & My.Settings.KeyPressTriggersFileName, 0)
            Catch ex As Exception

            Finally

            End Try

            ShowPage(Me.HistoryTabPage, SavedTabPageTwo)

            If XMLReturns = My.Resources.WordNothing OrElse MethodType = My.Resources.TypeSub OrElse MethodType = My.Resources.TypeDelegate Then
                Me.ReturnsEditor.Text = String.Empty
                Me.ReturnsEditor.Enabled = False
                HidePage(Me.ReturnsTabPage)
                Me.ReturnsEditor.KeyPressTriggersEnabled = False
                Me.ReturnsEditor.AutoReplaceTriggersEnabled = False
            Else
                Me.ReturnsEditor.Enabled = True
                Me.ReturnsEditor.Text = XMLReturns
                ShowPage(Me.ReturnsTabPage, SavedTabPageThree)
                Me.ReturnsEditor.KeyPressTriggersEnabled = True
                Me.ReturnsEditor.AutoReplaceTriggersEnabled = True
                Try
                    Me.ReturnsEditor.Document.LoadLanguageFromXml(CurrentPath & My.Resources.BackSlashText & My.Settings.KeyPressTriggersFileName, 0)
                Catch ex As Exception

                Finally

                End Try

            End If
            If XMLValue = String.Empty OrElse XMLParentType = My.Resources.TypeClass Then
                If MethodType.Trim = My.Resources.TypeProperty Then
                    Me.ValueEditor.Enabled = True
                    Me.ValueEditor.Text = XMLValue
                    ShowPage(Me.ValueTabPage, SavedTabPageFour)
                    Me.ValueEditor.KeyPressTriggersEnabled = True
                    Me.ValueEditor.AutoReplaceTriggersEnabled = True
                    Try
                        Me.ValueEditor.Document.LoadLanguageFromXml(CurrentPath & My.Resources.BackSlashText & My.Settings.KeyPressTriggersFileName, 0)
                    Catch ex As Exception

                    Finally

                    End Try
                Else

                    Me.ValueEditor.Text = String.Empty
                    Me.ValueEditor.Enabled = False
                    HidePage(Me.ValueTabPage)
                    Me.ValueEditor.KeyPressTriggersEnabled = False
                    Me.ValueEditor.AutoReplaceTriggersEnabled = False
                End If

            Else
                If MethodType.Trim = My.Resources.TypeConst OrElse MethodType.Trim = My.Resources.TypeClass OrElse MethodType.Trim = My.Resources.TypeVariable OrElse MethodType.Trim = My.Resources.TypeInitializedVariable Then
                    Me.ValueEditor.Text = String.Empty
                    Me.ValueEditor.Enabled = False
                    HidePage(Me.ValueTabPage)
                    Me.ValueEditor.KeyPressTriggersEnabled = False
                    Me.ValueEditor.AutoReplaceTriggersEnabled = False
                Else
                    Me.ValueEditor.Enabled = True
                    Me.ValueEditor.Text = XMLValue
                    ShowPage(Me.ValueTabPage, SavedTabPageFour)
                    Me.ValueEditor.KeyPressTriggersEnabled = True
                    Me.ValueEditor.AutoReplaceTriggersEnabled = True
                    Try
                        Me.ValueEditor.Document.LoadLanguageFromXml(CurrentPath & My.Resources.BackSlashText & My.Settings.KeyPressTriggersFileName, 0)
                    Catch ex As Exception

                    Finally

                    End Try
                End If
            End If
            If ParameterCount = 0 Then
                Me.ParametersDataGridView.Enabled = False
                HidePage(Me.ParametersTabPage)
            Else
                Me.ParametersDataGridView.Enabled = True
                ShowPage(Me.ParametersTabPage, SavedTabPageFive)
            End If
            If MethodType.Trim = My.Resources.TypeStructure OrElse MethodType.Trim = My.Resources.TypeVariable OrElse MethodType.Trim = My.Resources.TypeInitializedVariable OrElse MethodType.Trim = My.Resources.TypeConst OrElse MethodType.Trim = My.Resources.TypeEnum OrElse MethodType.Trim = My.Resources.TypeEnumElement Then
                HidePage(Me.ExceptionsTabPage)
            Else
                ShowPage(Me.ExceptionsTabPage, SavedTabPageSix)
            End If

            Me.ExamplesEditor.Text = XMLExample
            ShowPage(Me.ExamplesTabPage, SavedTabPageSeven)
            Me.ExamplesEditor.KeyPressTriggersEnabled = True
            Me.ValueEditor.AutoReplaceTriggersEnabled = True
            Try
                Me.ExamplesEditor.Document.LoadLanguageFromXml(CurrentPath & My.Resources.BackSlashText & My.Settings.KeyPressTriggersFileName, 0)
            Catch ex As Exception

            Finally

            End Try

            ShowPage(Me.SeeAlsoTabPage, SavedTabPageEight)

            ShowPage(Me.PermissionTabPage, SavedTabPageNine)
            'HidePage(Me.PermissionTabPage)

        End Sub

        ''' <summary>The Sub Tabbed layout dialog   shown
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 1:59:49 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub TabbedLayoutDialog_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
            DocumentingFormCalled = True
            Dim tempArray() As String
            Dim RowCount As Integer = 0
            RowCount = HistoryDataGridView.Rows.Count
            Try
                If RowCount <= 1 Then
                    If Not DeveloperEmail = String.Empty AndAlso Not DeveloperEmail.StartsWith("<a") Then
                        DeveloperEmail = "<a href=""" & "mailto:" & DeveloperEmail & """>" & "mailto:" & DeveloperEmail & "</a>"
                    End If
                    tempArray = New String() {DeveloperName + "<para>Date: " + Now.Date.ToShortDateString.ToString + "</para><para>Time: " + Now.ToLongTimeString.ToString + My.Resources.ParaXMLEndTagText, DeveloperCompany, DeveloperPhone, DeveloperEmail, My.Computer.Name, "Created XML Comment."}
                Else
                    Dim HistoryDialog As New UpdateComments()
                    HistoryDialog.Text = "Update the History Comments Description for: " & MethodLineText

                    Dim DialogResult As DialogResult = HistoryDialog.ShowDialog()
                    If DialogResult = Windows.Forms.DialogResult.Cancel Then
                        If Not DeveloperEmail = String.Empty AndAlso Not DeveloperEmail.StartsWith("<a") Then
                            DeveloperEmail = "<a href=""" & "mailto:" & DeveloperEmail & """>" & "mailto:" & DeveloperEmail & "</a>"
                        End If
                        tempArray = New String() {DeveloperName + "<para>Date: " + Now.Date.ToShortDateString.ToString + "</para><para>Time: " + Now.ToLongTimeString.ToString + My.Resources.ParaXMLEndTagText, DeveloperCompany, DeveloperPhone, DeveloperEmail, My.Computer.Name, "Updated XML Comment."}
                        HistoryDialog.Close()

                    Else
                        Dim testArray As String() = HistoryDialog.UpdateCommentEditor.Text.Split(Chr(10))
                        Dim tempString As String = String.Empty
                        For Each item As String In testArray
                            item = item.Replace(Chr(10), String.Empty)
                            item = item.Replace(vbCrLf, String.Empty)
                            item = item.Replace(vbCr, String.Empty)
                            tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                        Next
                        If Not DeveloperEmail = String.Empty AndAlso Not DeveloperEmail.StartsWith("<a") Then
                            DeveloperEmail = "<a href=""" & "mailto:" & DeveloperEmail & """>" & "mailto:" & DeveloperEmail & "</a>"
                        End If
                        tempArray = New String() {DeveloperName + "<para>Date: " + Now.Date.ToShortDateString.ToString + "</para><para>Time: " + Now.ToLongTimeString.ToString + My.Resources.ParaXMLEndTagText, DeveloperCompany, DeveloperPhone, DeveloperEmail, My.Computer.Name, tempString}
                        HistoryDialog.Close()

                    End If

                End If

                Me.HistoryDataGridView.Rows.Add(tempArray)
            Catch ex As Exception
                Debug.Write("TabbedLayout Shown Event HistoryDataGridView throw an exception in For Next Loop: " & ex.Message)

            End Try

            tempArray = Nothing

            Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)

        End Sub

        ''' <summary>
        ''' Type Sub Summary editor   enter
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:35:54 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub SummaryEditor_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles SummaryEditor.Enter
            XMLCommentElement = "tbSummary"
            Me.SummaryTabPage.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub Remarks editor   enter
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:35:59 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub RemarksEditor_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles RemarksEditor.Enter
            XMLCommentElement = "tbRemarks"
            Me.RemarksTabPage.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub Returns editor   enter
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:05 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ReturnsEditor_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReturnsEditor.Enter
            XMLCommentElement = "tbReturns"
            Me.ReturnsTabPage.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub Value editor   enter
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:10 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ValueEditor_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ValueEditor.Enter
            XMLCommentElement = "tbValue"
            Me.ValueTabPage.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub Examples editor   enter
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:13 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ExamplesEditor_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExamplesEditor.Enter
            XMLCommentElement = "tbExamples"
            Me.ReturnsTabPage.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>The Sub History data grid view   cell click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 2:00:52 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub HistoryDataGridView_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles HistoryDataGridView.CellClick
            If sender Is Nothing OrElse e Is Nothing Then
                Return
            End If
            Me.HistoryDataGridView.GridColor = Color.Black
            Me.HistoryDataGridView.Refresh()
            Me.Refresh()
            If HistoryDataGridView.CurrentCell.ColumnIndex = 1 Then
                If HistoryDataGridView.Item(0, HistoryDataGridView.CurrentCell.RowIndex).Value = String.Empty Then
                    HistoryDataGridView.Item(0, HistoryDataGridView.CurrentCell.RowIndex).Value = "Developer: " + DeveloperName + "Developer Company: " + DeveloperCompany + "</para> " + "Developer Phone: " + DeveloperPhone + "</para> " + "Developer Email: " + DeveloperEmail + "</para> " + "Developed on: " + My.Computer.Name + "</para> " + "Date: " + Now.Date.ToShortDateString.ToString + "</para><para>Time: " + Now.ToLongTimeString.ToString + String.Empty
                    HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = "Updated XML Comment. "
                End If
            End If
        End Sub

        ''' <summary>
        ''' Type Sub History data grid view   cell content double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:18 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub HistoryDataGridView_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles HistoryDataGridView.CellContentDoubleClick
            Dim HistoryDialog As New UpdateComments()
            HistoryDialog.Text = "Update the History Comments Description for: " & MethodLineText
            Dim TempValue As String = Me.HistoryDataGridView.Item(5, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            HistoryDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = HistoryDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                HistoryDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = HistoryDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.HistoryDataGridView.Item(5, e.RowIndex).Value = tempString
                HistoryDialog.Close()

            End If

        End Sub

        ''' <summary>
        ''' Type Sub History data grid view   cell double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:24 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub HistoryDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles HistoryDataGridView.CellDoubleClick
            Dim HistoryDialog As New UpdateComments()
            HistoryDialog.Text = "Update the History Comments Description for: " & MethodLineText
            Dim TempValue As String = Me.HistoryDataGridView.Item(5, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            HistoryDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = HistoryDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                HistoryDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = HistoryDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.HistoryDataGridView.Item(5, e.RowIndex).Value = tempString
                HistoryDialog.Close()

            End If


        End Sub

        ''' <summary>The Sub History data grid view   cell enter
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 2:00:56 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub HistoryDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles HistoryDataGridView.CellEnter
            XMLCommentElement = "HistoryDataGridView"
            Me.HistoryDataGridView.GridColor = Color.Black
            Me.HistoryDataGridView.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub Parameters data grid view   cell content double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:31 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ParametersDataGridView_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ParametersDataGridView.CellContentDoubleClick
            Dim ParametersDialog As New UpdateComments()
            ParametersDialog.Text = "Update the Parameters Comments Description for Parameter Name: " & Me.ParametersDataGridView.Item(1, e.RowIndex).Value
            Dim TempValue As String = Me.ParametersDataGridView.Item(2, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            ParametersDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = ParametersDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                ParametersDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = ParametersDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.ParametersDataGridView.Item(2, e.RowIndex).Value = tempString
                ParametersDialog.Close()

            End If

        End Sub

        ''' <summary>The Sub Parameters data grid view   cell enter
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 2:01:12 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ParametersDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ParametersDataGridView.CellEnter
            XMLCommentElement = "ParametersDataGridView"
            Me.ParametersDataGridView.GridColor = Color.Black
            Me.ParametersDataGridView.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub Parameters data grid view   cell double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:40 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ParametersDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ParametersDataGridView.CellDoubleClick
            Dim ParametersDialog As New UpdateComments()
            ParametersDialog.Text = "Update the Parameters Comments Description for Parameter Name: " & Me.ParametersDataGridView.Item(1, e.RowIndex).Value
            Dim TempValue As String = Me.ParametersDataGridView.Item(2, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            ParametersDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = ParametersDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                ParametersDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = ParametersDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.ParametersDataGridView.Item(2, e.RowIndex).Value = tempString
                ParametersDialog.Close()

            End If

        End Sub

        ''' <summary>The Sub Permission data grid view   cell enter
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/7/2007</para><para>Time: 2:01:27 PM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub PermissionDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles PermissionDataGridView.CellEnter
            XMLCommentElement = "PermissionDataGridView"
            Me.ParametersDataGridView.GridColor = Color.Black
            Me.ParametersDataGridView.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub Permission data grid view   cell content double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:46 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub PermissionDataGridView_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles PermissionDataGridView.CellContentDoubleClick
            Dim PermissionDialog As New UpdateComments()
            PermissionDialog.Text = "Update the SeeAlso Comments Description for cref= " & Me.PermissionDataGridView.Item(0, e.RowIndex).Value
            Dim TempValue As String = Me.PermissionDataGridView.Item(1, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            PermissionDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = PermissionDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                PermissionDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = PermissionDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.PermissionDataGridView.Item(1, e.RowIndex).Value = tempString
                PermissionDialog.Close()

            End If


        End Sub

        ''' <summary>
        ''' Type Sub Permission data grid view   cell double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:53 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub PermissionDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles PermissionDataGridView.CellDoubleClick
            Dim PermissionDialog As New UpdateComments()
            PermissionDialog.Text = "Update the SeeAlso Comments Description for cref= " & Me.PermissionDataGridView.Item(0, e.RowIndex).Value
            Dim TempValue As String = Me.PermissionDataGridView.Item(1, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            PermissionDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = PermissionDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                PermissionDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = PermissionDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.PermissionDataGridView.Item(1, e.RowIndex).Value = tempString
                PermissionDialog.Close()

            End If

        End Sub

        ''' <summary>
        ''' Type Sub Exceptions data grid view   cell double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:36:59 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ExceptionsDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ExceptionsDataGridView.CellDoubleClick
            Dim ExceptionsDialog As New UpdateComments()
            ExceptionsDialog.Text = "Update the Exceptions Condition Comments for cref= " & Me.ExceptionsDataGridView.Item(0, e.RowIndex).Value
            Dim TempValue As String = Me.ExceptionsDataGridView.Item(1, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            ExceptionsDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = ExceptionsDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                ExceptionsDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = ExceptionsDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.ExceptionsDataGridView.Item(1, e.RowIndex).Value = tempString
                ExceptionsDialog.Close()

            End If


        End Sub

        ''' <summary>
        ''' Type Sub Exceptions data grid view   cell content double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:04 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ExceptionsDataGridView_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ExceptionsDataGridView.CellContentDoubleClick
            Dim ExceptionsDialog As New UpdateComments()
            ExceptionsDialog.Text = "Update the Exceptions Condition Comments for cref= " & Me.ExceptionsDataGridView.Item(0, e.RowIndex).Value
            Dim TempValue As String = Me.ParametersDataGridView.Item(1, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            ExceptionsDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = ExceptionsDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                ExceptionsDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = ExceptionsDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.ParametersDataGridView.Item(1, e.RowIndex).Value = tempString
                ExceptionsDialog.Close()

            End If


        End Sub

        ''' <summary>The Sub Exceptions data grid view   cell enter
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:57:31 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ExceptionsDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ExceptionsDataGridView.CellEnter
            XMLCommentElement = "ExceptionsDataGridView"
            Me.ExceptionsDataGridView.GridColor = Color.Black
            Me.ExceptionsDataGridView.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>The Sub See also data grid view   cell enter
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event arguments</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:57:22 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub SeeAlsoDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles SeeAlsoDataGridView.CellEnter
            XMLCommentElement = "SeeAlsoDataGridView"
            Me.SeeAlsoDataGridView.GridColor = Color.Black
            Me.SeeAlsoDataGridView.Refresh()
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub See also data grid view   cell content double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:12 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub SeeAlsoDataGridView_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles SeeAlsoDataGridView.CellContentDoubleClick
            Dim SeeAlsoDialog As New UpdateComments()
            SeeAlsoDialog.Text = "Update the SeeAlso Comments Description for cref= " & Me.SeeAlsoDataGridView.Item(0, e.RowIndex).Value
            Dim TempValue As String = Me.ParametersDataGridView.Item(1, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            SeeAlsoDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = SeeAlsoDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                SeeAlsoDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = SeeAlsoDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.ParametersDataGridView.Item(1, e.RowIndex).Value = tempString
                SeeAlsoDialog.Close()

            End If


        End Sub

        ''' <summary>
        ''' Type Sub See also data grid view   cell double click
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. data grid view cell event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:17 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub SeeAlsoDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles SeeAlsoDataGridView.CellDoubleClick
            Dim SeeAlsoDialog As New UpdateComments()
            SeeAlsoDialog.Text = "Update the SeeAlso Comments Description for cref= " & Me.SeeAlsoDataGridView.Item(0, e.RowIndex).Value
            Dim TempValue As String = Me.SeeAlsoDataGridView.Item(1, e.RowIndex).Value
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLBeginTagText, String.Empty)
            Catch ex As Exception

            End Try
            Try
                TempValue = TempValue.Replace(My.Resources.ParaXMLEndTagText, Chr(10))
            Catch ex As Exception

            End Try

            SeeAlsoDialog.UpdateCommentEditor.Text = TempValue
            Dim DialogResult As DialogResult = SeeAlsoDialog.ShowDialog()
            If DialogResult = Windows.Forms.DialogResult.Cancel Then
                SeeAlsoDialog.Close()
                Exit Sub
            Else
                'Dim testArray As New String()
                Dim testArray As String() = SeeAlsoDialog.UpdateCommentEditor.Text.Split(Chr(10))
                Dim tempString As String = String.Empty
                For Each item As String In testArray
                    tempString += My.Resources.ParaXMLBeginTagText & item & My.Resources.ParaXMLEndTagText
                Next
                Me.SeeAlsoDataGridView.Item(1, e.RowIndex).Value = tempString
                SeeAlsoDialog.Close()

            End If


        End Sub

        ''' <summary>The Sub Btn OK  click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:57:40 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
            If sender Is Nothing OrElse e Is Nothing Then
                Return
            End If
            DocumentingFormCalled = False
            Me.DialogResult = System.Windows.Forms.DialogResult.OK
            Me.Hide()
        End Sub

        ''' <summary>The Sub Btn cancel   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:57:51 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
            If sender Is Nothing OrElse e Is Nothing Then
                Return
            End If
            DocumentingFormCalled = False
            Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
            Me.Close()

        End Sub

        ''' <summary>The Sub XML comment tab control   selected index changed
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        '''         <DevName>Developer</DevName>
        '''         <DevCompany>Developer Company</DevCompany>
        '''         <DevPhone>Developer Phone</DevPhone>
        '''         <DevEmail>Developer Email</DevEmail>
        '''         <DevMachine>Developed On</DevMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        '''         <DevName>Danny C. McNaught</DevName>
        '''         <DevCompany>EDS</DevCompany>
        '''         <DevPhone>(919) 424-9259</DevPhone>
        '''         <DevEmail>danny.mcnaught@eds.com</DevEmail>
        '''         <DevMachine>W2PZZ50H01</DevMachine>
        ''' 		<description><para>Date: 9/10/2007 Time: 6:57:59 AM</para>Created XML Comment. </description>
        ''' </item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub XMLCommentTabControl_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles XMLCommentTabControl.SelectedIndexChanged
            Select Case XMLCommentTabControl.SelectedTab.Name
                Case "SummaryTabPage"
                    Try
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                        Me.SummaryTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <summary> tag should be used to describe a type or a type member. The text for the <summary> tag is the only source of information about the type in IntelliSense, and is also displayed in the Object Browser.")

                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "RemarksTabPage"
                    Try
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                        Me.RemarksTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <remarks> tag is used to add information about a type, supplementing the information specified with <summary>.  ")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "HistoryTabPage"
                    Try
                        Me.HistoryDataGridView.GridColor = Color.Black
                        Me.HistoryTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The custom <history> tag should be used to describe a changes to the type or a type member.")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "ReturnsTabPage"
                    Try
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                        Me.ReturnsTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <returns> tag should be used in the comment for a method declaration to describe the return value. This information is displayed in the Visual Studio Object Browser.")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "ValueTabPage"
                    Try
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                        Me.ValueTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <value> tag lets you describe the value that a property represents. ")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "ParametersTabPage"
                    Try
                        Me.ParametersDataGridView.GridColor = Color.Black
                        Me.ParametersTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <param> tag should be used in the comment for a method declaration to describe one of the parameters for the method. The text for the <param> tag will be displayed in IntelliSense, the Object Browser, and in the Code Comment Web Report.")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "ExceptionsTabPage"
                    Try
                        Me.ExceptionsDataGridView.GridColor = Color.Black
                        Me.ExceptionsTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <exception> tag lets you specify which exceptions can be thrown. This tag can be applied to definitions for methods, properties, events, and indexers.")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "SeeAlsoTabPage"
                    Try
                        Me.SeeAlsoDataGridView.GridColor = Color.Black
                        Me.SeeAlsoTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <seealso> tag lets you specify the text that you might want to appear in a See Also section. Use <see> to specify a link from within text.")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "ExamplesTabPage"
                    Try
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)
                        Me.ExceptionsDataGridView.GridColor = Color.Black
                        Me.ExamplesTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <example> tag lets you specify an example of how to use a method or other library member. This commonly involves using the <code> tag.")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try
                Case "PermissionTabPage"
                    Try
                        Me.PermissionDataGridView.GridColor = Color.Black
                        Me.PermissionTabPage.Refresh()
                        Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <permission> tag lets you document the access of a member. The PermissionSet class lets you specify access to a member.")
                        Me.Refresh()
                    Catch ex As Exception

                    End Try

            End Select

        End Sub

        ''' <summary>
        ''' Type Sub Build trigger list
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="Editor">Parameter Editor Actipro software. syntax editor. syntax editor</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:25 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub BuildTriggerList(ByVal Editor As ActiproSoftware.SyntaxEditor.SyntaxEditor)
            Try
                Dim memberList As IntelliPromptMemberList = Editor.IntelliPrompt.MemberList
                memberList.ResetAllowedCharacters()
                Dim reflectionImageList As New ImageList
                reflectionImageList = SyntaxEditor.ReflectionImageList
                ' Set IntelliPrompt ImageList
                memberList.ImageList = reflectionImageList

                ' Add items to the list
                Dim imageIndex As Integer = ActiproSoftware.Products.SyntaxEditor.IconResource.Keyword
                memberList.Clear()
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.BoldTextTag, imageIndex, My.Settings.BoldTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.BlockQuoteTag, imageIndex, My.Settings.BlockQuoteTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.SingleLineCodeTag, imageIndex, My.Settings.SingleLineCodeTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.MultiLineCodeTag, imageIndex, My.Settings.MultiLineCodeTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.DeletedTextTag, imageIndex, My.Settings.DeletedTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.InsertedTextTag, imageIndex, My.Settings.InsertedTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.ItalicTextTag, imageIndex, My.Settings.ItalicTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.NumberListStartTag & Chr(10) & My.Settings.ListHeaderStartTag & Chr(10) & My.Settings.ListDescStartTag & My.Settings.ListDescEndTag & Chr(10) & My.Settings.ListHeaderEndTag & Chr(10) & My.Settings.ListItemStartTag & Chr(10) & My.Settings.ListDescStartTag & My.Settings.ListDescEndTag & Chr(10) & My.Settings.ListItemEndTag & Chr(10) & My.Settings.ListItemEndTag, imageIndex, My.Settings.NumberListTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.TableListStartTag & Chr(10) & My.Settings.ListHeaderStartTag & Chr(10) & My.Settings.ListTermStartTag & My.Settings.ListTermEndTag & Chr(10) & My.Settings.ListDescStartTag & My.Settings.ListDescEndTag & Chr(10) & My.Settings.ListHeaderEndTag & Chr(10) & My.Settings.ListItemStartTag & Chr(10) & My.Settings.ListTermStartTag & My.Settings.ListTermEndTag & Chr(10) & My.Settings.ListDescStartTag & My.Settings.ListDescEndTag & Chr(10) & My.Settings.ListItemEndTag & Chr(10) & My.Settings.ListItemEndTag, imageIndex, My.Settings.TableListTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.OrderedListTag, imageIndex, My.Settings.OrderedListTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.ParagraphCodeTag, imageIndex, My.Settings.ParagraphCodeTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.SeeAlsoTag, imageIndex, My.Settings.SeeAlsoTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.StrikeTextTag, imageIndex, My.Settings.StrikeTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.UnderlineTextTag, imageIndex, My.Settings.UnderlineTextTagDesc))
                ' Show the list
                If (memberList.Count > 0) Then
                    memberList.Show()
                    MemberListSelectedItem = memberList.SelectedItem
                End If
                reflectionImageList = Nothing
                memberList = Nothing
            Catch ex As Exception

            End Try

        End Sub

        ''' <summary>
        ''' Type Sub Summary editor   intelli prompt member list closed
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Component model. cancel event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:31 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub SummaryEditor_IntelliPromptMemberListClosed(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SummaryEditor.IntelliPromptMemberListClosed
            InsertClipboardContents(SummaryEditor, SummaryTabPage)

        End Sub

        ''' <summary>
        ''' Type Sub Summary editor   key press
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. key press event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:37 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub SummaryEditor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles SummaryEditor.KeyPress
            If e.KeyChar = My.Settings.EditorTriggerKey Then 'Chr(60) = <
                Try
                    CurrentSelectedText = SummaryEditor.SelectedView.SelectedText
                    SummaryEditor.SelectedView.CopyToClipboard()
                Catch ex As Exception

                Finally

                End Try
            End If
        End Sub

        ''' <summary>
        ''' Type Sub Summary editor   trigger activated
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Actipro software. syntax editor. trigger event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:42 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub SummaryEditor_TriggerActivated(ByVal sender As Object, ByVal e As ActiproSoftware.SyntaxEditor.TriggerEventArgs) Handles SummaryEditor.TriggerActivated
            BuildTriggerList(SummaryEditor)
        End Sub

        ''' <summary>
        ''' Type Sub Remarks editor   intelli prompt member list closed
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Component model. cancel event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:46 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub RemarksEditor_IntelliPromptMemberListClosed(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles RemarksEditor.IntelliPromptMemberListClosed
            InsertClipboardContents(RemarksEditor, RemarksTabPage)

        End Sub

        ''' <summary>
        ''' Type Sub Remarks editor   key press
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. key press event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:50 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub RemarksEditor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RemarksEditor.KeyPress
            If e.KeyChar = My.Settings.EditorTriggerKey Then 'Chr(60) = <
                Try
                    CurrentSelectedText = RemarksEditor.SelectedView.SelectedText
                    RemarksEditor.SelectedView.CopyToClipboard()
                Catch ex As Exception

                Finally

                End Try
            End If

        End Sub

        ''' <summary>
        ''' Type Sub Remarks editor   trigger activated
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Actipro software. syntax editor. trigger event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:54 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub RemarksEditor_TriggerActivated(ByVal sender As Object, ByVal e As ActiproSoftware.SyntaxEditor.TriggerEventArgs) Handles RemarksEditor.TriggerActivated
            BuildTriggerList(RemarksEditor)
        End Sub

        ''' <summary>
        ''' Type Sub Returns editor   intelli prompt member list closed
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Component model. cancel event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:37:58 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ReturnsEditor_IntelliPromptMemberListClosed(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ReturnsEditor.IntelliPromptMemberListClosed
            InsertClipboardContents(ReturnsEditor, ReturnsTabPage)

        End Sub

        ''' <summary>
        ''' Type Sub Returns editor   key press
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. key press event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:02 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ReturnsEditor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ReturnsEditor.KeyPress
            If e.KeyChar = My.Settings.EditorTriggerKey Then 'Chr(60) = <
                Try
                    CurrentSelectedText = ReturnsEditor.SelectedView.SelectedText
                    ReturnsEditor.SelectedView.CopyToClipboard()
                Catch ex As Exception

                Finally

                End Try
            End If

        End Sub

        ''' <summary>
        ''' Type Sub Returns editor   trigger activated
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Actipro software. syntax editor. trigger event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:07 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ReturnsEditor_TriggerActivated(ByVal sender As Object, ByVal e As ActiproSoftware.SyntaxEditor.TriggerEventArgs) Handles ReturnsEditor.TriggerActivated
            BuildTriggerList(ReturnsEditor)
        End Sub

        ''' <summary>
        ''' Type Sub Value editor   intelli prompt member list closed
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Component model. cancel event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:14 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ValueEditor_IntelliPromptMemberListClosed(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ValueEditor.IntelliPromptMemberListClosed
            InsertClipboardContents(ValueEditor, ValueTabPage)

        End Sub

        ''' <summary>
        ''' Type Sub Value editor   key press
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. key press event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:20 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ValueEditor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ValueEditor.KeyPress
            If e.KeyChar = My.Settings.EditorTriggerKey Then 'Chr(60) = <
                Try
                    CurrentSelectedText = ValueEditor.SelectedView.SelectedText
                    ValueEditor.SelectedView.CopyToClipboard()
                Catch ex As Exception

                Finally

                End Try
            End If

        End Sub

        ''' <summary>
        ''' Type Sub Value editor   trigger activated
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Actipro software. syntax editor. trigger event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:25 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ValueEditor_TriggerActivated(ByVal sender As Object, ByVal e As ActiproSoftware.SyntaxEditor.TriggerEventArgs) Handles ValueEditor.TriggerActivated
            BuildTriggerList(ValueEditor)
        End Sub

        ''' <summary>
        ''' Type Sub Examples editor   intelli prompt member list closed
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Component model. cancel event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:30 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ExamplesEditor_IntelliPromptMemberListClosed(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ExamplesEditor.IntelliPromptMemberListClosed
            InsertClipboardContents(ExamplesEditor, ExamplesTabPage)

        End Sub

        ''' <summary>
        ''' Type Sub Examples editor   key press
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. key press event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:33 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ExamplesEditor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ExamplesEditor.KeyPress
            If e.KeyChar = My.Settings.EditorTriggerKey Then 'Chr(60) = <
                Try
                    CurrentSelectedText = ExamplesEditor.SelectedView.SelectedText
                    ExamplesEditor.SelectedView.CopyToClipboard()
                Catch ex As Exception

                Finally

                End Try
            End If


        End Sub

        ''' <summary>
        ''' Type Sub Examples editor   mouse hover
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:37 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ExamplesEditor_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExamplesEditor.MouseHover
            Me.ToolTip1.SetToolTip(Me.XMLCommentTabControl, "The <summary> tag should be used to describe a type or a type member. ")
            Me.Refresh()
        End Sub

        ''' <summary>
        ''' Type Sub Examples editor   trigger activated
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Actipro software. syntax editor. trigger event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:41 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ExamplesEditor_TriggerActivated(ByVal sender As Object, ByVal e As ActiproSoftware.SyntaxEditor.TriggerEventArgs) Handles ExamplesEditor.TriggerActivated
            BuildTriggerList(ExamplesEditor)
        End Sub

        ''' <summary>
        ''' Type Sub Insert clipboard contents
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="Editor">Parameter Editor Actipro software. syntax editor. syntax editor</param>
        ''' <param name="TabPage">Parameter TabPage Tab page</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:38:45 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub InsertClipboardContents(ByVal Editor As ActiproSoftware.SyntaxEditor.SyntaxEditor, ByVal TabPage As TabPage)
            Dim SelectionOffset As Integer = 0
            MemberListSelectedItem = Editor.IntelliPrompt.MemberList.SelectedItem
            CurrentSelectedItem = MemberListSelectedItem.ToString
            Select Case CurrentSelectedItem
                Case My.Settings.BoldTextTag
                    SelectionOffset = My.Settings.BoldTextEndTag.Length
                Case My.Settings.BlockQuoteTag
                    SelectionOffset = My.Settings.BlockQuoteEndTag.Length
                Case My.Settings.DeletedTextTag
                    SelectionOffset = My.Settings.DeletedTextEndTag.Length
                Case My.Settings.InsertedTextTag
                    SelectionOffset = My.Settings.InsertedTextEndTag.Length
                Case My.Settings.ItalicTextTag
                    SelectionOffset = My.Settings.ItalicTextEndTag.Length
                Case My.Settings.NumberListStartTag
                    SelectionOffset = My.Settings.ListEndTag.Length
                Case My.Settings.TableListStartTag
                    SelectionOffset = My.Settings.ListEndTag.Length
                Case My.Settings.OrderedListTag
                    SelectionOffset = My.Settings.OrderedListEndTag.Length
                Case My.Settings.StrikeTextTag
                    SelectionOffset = My.Settings.StrikeTextEndTag.Length
                Case My.Settings.UnderlineTextTag
                    SelectionOffset = My.Settings.UnderlineTextEndTag.Length
                Case My.Settings.SingleLineCodeTag
                    SelectionOffset = My.Settings.SingleLineCodeEndTag.Length
                Case My.Settings.MultiLineCodeTag
                    SelectionOffset = My.Settings.MultiLineEndTag.Length
                Case My.Settings.ParagraphCodeTag
                    SelectionOffset = My.Settings.ParagraphEndTag.Length
                Case My.Settings.SeeAlsoTag
                    SelectionOffset = My.Settings.SeeAlsoEndTag.Length
            End Select
            Try
                Editor.SelectedView.Selection.SelectRange(Editor.SelectedView.Selection.FirstOffset - SelectionOffset, 0)
                If Not CurrentSelectedText = String.Empty Then
                    Editor.SelectedView.PasteFromClipboard()
                    CurrentSelectedText = String.Empty
                End If
            Catch ex As Exception

            Finally

            End Try
            TabPage.Refresh()
            Me.Refresh()

        End Sub

#End Region

#Region "MenuItems"

        ''' <summary>The Sub CTool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:58:32 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub LessGreaterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LessGreaterToolStripMenuItem.Click
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " &lt;PlaceHolder&gt; ")
                        ' Me.SummaryEditor.SelectedView.InsertText(" &lt;PlaceHolder&gt; ")
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " &lt;PlaceHolder&gt; ")
                        'Me.RemarksEditor.SelectedView.InsertText(" &lt;PlaceHolder&gt; ")
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        'Me.ReturnsEditor.SelectedView.InsertText(" &lt;PlaceHolder&gt; ")
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " &lt;PlaceHolder&gt; ")
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        'Me.ValueEditor.SelectedView.InsertText(" &lt;PlaceHolder&gt; ")
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " &lt;PlaceHolder&gt; ")
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " &lt;PlaceHolder&gt; "
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " &lt;PlaceHolder&gt; "
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        'Me.ExamplesEditor.SelectedView.InsertText(" &lt;PlaceHolder&gt; ")
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " &lt;PlaceHolder&gt; ")
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
            End Select

        End Sub

        ''' <summary>The Sub Solution name tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:59:00 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub SolutionNameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SolutionNameToolStripMenuItem.Click
            If SolutionName.ToUpper.EndsWith(".SLN") Then
                SolutionName = SolutionName.Substring(0, SolutionName.Length - 4)
            End If
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.SummaryEditor.SelectedView.InsertText(" Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        'Me.RemarksEditor.SelectedView.InsertText(" Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpaceText)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ReturnsEditor.SelectedView.InsertText(" Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ValueEditor.SelectedView.InsertText(" Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Solution Name: " & SolutionName
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Solution Name: " & SolutionName
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ExamplesEditor.SelectedView.InsertText(" Solution Name: " & SolutionName.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)


                    Catch ex As Exception

                    End Try
            End Select


        End Sub

        ''' <summary>The Sub Project name tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:59:05 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ProjectNameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProjectNameToolStripMenuItem.Click
            If ProjectName.ToUpper.EndsWith(".VBPROJ") Then
                ProjectName = ProjectName.Substring(0, ProjectName.Length - 7)
            End If
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.SummaryEditor.SelectedView.InsertText(" Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.RemarksEditor.SelectedView.InsertText(" Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ReturnsEditor.SelectedView.InsertText(" Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ValueEditor.SelectedView.InsertText(" Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Project Name: " & ProjectName
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Project Name: " & ProjectName
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ExamplesEditor.SelectedView.InsertText(" Project Name: " & ProjectName.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select


        End Sub

        ''' <summary>The Sub Document name tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:59:14 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub DocumentNameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DocumentNameToolStripMenuItem.Click
            Dim CurrentDocName As String = DocName.Name.ToString
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.SummaryEditor.SelectedView.InsertText(" Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.RemarksEditor.SelectedView.InsertText(" Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ReturnsEditor.SelectedView.InsertText(" Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ValueEditor.SelectedView.InsertText(" Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Document Name: " & CurrentDocName
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Document Name: " & CurrentDocName
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ExamplesEditor.SelectedView.InsertText(" Document Name: " & CurrentDocName.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select


        End Sub

        ''' <summary>The Sub Member name tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:59:19 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub MemberNameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberNameToolStripMenuItem.Click
            'MethodName
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        'Me.SummaryEditor.SelectedView.InsertText(" Member Name: " & MethodName.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Member Name: " & MethodName.Trim & My.Resources.LineBlankSpaceText)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        'Me.RemarksEditor.SelectedView.InsertText(" Member Name: " & MethodName.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Member Name: " & MethodName.Trim & My.Resources.LineBlankSpaceText)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        'Me.ReturnsEditor.SelectedView.InsertText(" Member Name: " & MethodName.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Member Name: " & MethodName.Trim & My.Resources.LineBlankSpaceText)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Member Name: " & MethodName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ValueEditor.SelectedView.InsertText(" Member Name: " & MethodName.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Member Name: " & MethodName
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Member Name: " & MethodName
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Member Name: " & MethodName.Trim & My.Resources.LineBlankSpaceText)
                        ' Me.ExamplesEditor.SelectedView.InsertText(" Member Name: " & MethodName.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select


        End Sub

        ''' <summary>The Sub Member type tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:59:25 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub MemberTypeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberTypeToolStripMenuItem.Click
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        'Me.SummaryEditor.SelectedView.InsertText(" Member Type: " & MethodType.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Member Type: " & MethodType.Trim & My.Resources.LineBlankSpaceText)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        'Me.RemarksEditor.SelectedView.InsertText(" Member Type: " & MethodType.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Member Type: " & MethodType.Trim & My.Resources.LineBlankSpaceText)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        'Me.ReturnsEditor.SelectedView.InsertText(" Member Type: " & MethodType.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Member Type: " & MethodType.Trim & My.Resources.LineBlankSpaceText)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        'Me.ValueEditor.SelectedView.InsertText(" Member Type: " & MethodType.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Member Type: " & MethodType.Trim & My.Resources.LineBlankSpaceText)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Member Type: " & MethodType
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Member Type: " & MethodType
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        'Me.ExamplesEditor.SelectedView.InsertText(" Member Type: " & MethodType.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Member Type: " & MethodType.Trim & My.Resources.LineBlankSpaceText)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select


        End Sub

        ''' <summary>The Sub Member scope tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 6:59:33 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub MemberScopeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberScopeToolStripMenuItem.Click
            Dim tempArray() As String = MethodLineText.Split(My.Resources.LineBlankSpaceText)
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, "Member Scope: " & tempArray(0).ToString)
                        'Me.SummaryEditor.SelectedView.InsertText("Member Scope: " & tempArray(0).ToString)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        'Me.RemarksEditor.SelectedView.InsertText("Member Scope: " & tempArray(0).ToString)
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, "Member Scope: " & tempArray(0).ToString)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, "Member Scope: " & tempArray(0).ToString)
                        'Me.ReturnsEditor.SelectedView.InsertText("Member Scope: " & tempArray(0).ToString)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        'Me.ValueEditor.SelectedView.InsertText("Member Scope: " & tempArray(0).ToString)
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, "Member Scope: " & tempArray(0).ToString)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Member Scope: " & tempArray(0).ToString
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Member Scope: " & tempArray(0).ToString
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        'Me.ExamplesEditor.SelectedView.InsertText("Member Scope: " & tempArray(0).ToString)
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, "Member Scope: " & tempArray(0).ToString)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select

        End Sub

        ''' <summary>The Sub Computer name tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 7:00:26 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub ComputerNameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComputerNameToolStripMenuItem.Click
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpaceText)
                        'Me.SummaryEditor.SelectedView.InsertText(" Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpaceText)
                        'Me.RemarksEditor.SelectedView.InsertText(" Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ReturnsEditor.SelectedView.InsertText(" Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ValueEditor.SelectedView.InsertText(" Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Computer Name: " & My.Computer.Name
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Computer Name: " & My.Computer.Name
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ExamplesEditor.SelectedView.InsertText(" Computer Name: " & My.Computer.Name.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select


        End Sub

        ''' <summary>The Sub User name tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 7:00:35 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub UserNameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserNameToolStripMenuItem.Click
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.SummaryEditor.SelectedView.InsertText(" Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.RemarksEditor.SelectedView.InsertText(" Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ReturnsEditor.SelectedView.InsertText(" Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ValueEditor.SelectedView.InsertText(" Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Developer: " + DeveloperName
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Developer: " + DeveloperName
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ExamplesEditor.SelectedView.InsertText(" Developer: " + DeveloperName.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select

        End Sub

        ''' <summary>The Sub Date tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 7:00:40 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub DateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateToolStripMenuItem.Click
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.SummaryEditor.SelectedView.InsertText(" Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.RemarksEditor.SelectedView.InsertText(" Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ReturnsEditor.SelectedView.InsertText(" Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ValueEditor.SelectedView.InsertText(" Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Date: " + Now.Date.ToShortDateString.ToString
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Date: " + Now.Date.ToShortDateString.ToString
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ExamplesEditor.SelectedView.InsertText(" Date: " + Now.Date.ToShortDateString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select

        End Sub

        ''' <summary>The Sub Time tool strip menu item   click
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 7:00:45 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub TimeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeToolStripMenuItem.Click
            Select Case XMLCommentElement
                Case "tbSummary"
                    Try
                        Me.SummaryEditor.Document.InsertText(DocumentModificationType.Custom, Me.SummaryEditor.SelectedView.Selection.FirstOffset, " Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.SummaryEditor.SelectedView.InsertText(" Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.SummaryEditor.SelectedView.Selection.SelectRange(Me.SummaryEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbRemarks"
                    Try
                        'Me.RemarksEditor.SelectedView.InsertText(" Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.RemarksEditor.Document.InsertText(DocumentModificationType.Custom, Me.RemarksEditor.SelectedView.Selection.FirstOffset, " Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        Me.RemarksEditor.SelectedView.Selection.SelectRange(Me.RemarksEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbReturns"
                    Try
                        Me.ReturnsEditor.Document.InsertText(DocumentModificationType.Custom, Me.ReturnsEditor.SelectedView.Selection.FirstOffset, " Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ReturnsEditor.SelectedView.InsertText(" Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.ReturnsEditor.SelectedView.Selection.SelectRange(Me.ReturnsEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "tbValue"
                    Try
                        Me.ValueEditor.Document.InsertText(DocumentModificationType.Custom, Me.ValueEditor.SelectedView.Selection.FirstOffset, " Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ValueEditor.SelectedView.InsertText(" Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.ValueEditor.SelectedView.Selection.SelectRange(Me.ValueEditor.SelectedView.Selection.FirstOffset, 0)
                    Catch ex As Exception

                    End Try
                Case "HistoryDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.HistoryDataGridView.CurrentCell
                        Dim strTemp As String = Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value
                        Me.HistoryDataGridView.SelectAll()
                        Me.HistoryDataGridView.BeginEdit(True)
                        Me.HistoryDataGridView.Item(1, HistoryDataGridView.CurrentCell.RowIndex).Value = strTemp + " Time: " + Now.ToLongTimeString.ToString
                        Me.HistoryDataGridView.UpdateCellValue(1, Me.HistoryDataGridView.CurrentCell.RowIndex)
                        Me.HistoryDataGridView.Update()
                        Me.HistoryDataGridView.EndEdit(True)
                        Me.HistoryDataGridView.ClearSelection()
                        Me.HistoryDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.HistoryDataGridView.Select()
                        Me.HistoryDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "ParametersDataGridView"
                    Try
                        Dim value As DataGridViewCell = Me.ParametersDataGridView.CurrentCell
                        Dim strTemp As String = Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value
                        Me.ParametersDataGridView.SelectAll()
                        Me.ParametersDataGridView.BeginEdit(True)
                        Me.ParametersDataGridView.Item(1, ParametersDataGridView.CurrentCell.RowIndex).Value = strTemp + " Time: " + Now.ToLongTimeString.ToString
                        Me.ParametersDataGridView.UpdateCellValue(1, Me.ParametersDataGridView.CurrentCell.RowIndex)
                        Me.ParametersDataGridView.Update()
                        Me.ParametersDataGridView.EndEdit(True)
                        Me.ParametersDataGridView.ClearSelection()
                        Me.ParametersDataGridView.SelectionMode = DataGridViewSelectionMode.CellSelect
                        Me.ParametersDataGridView.Select()
                        Me.ParametersDataGridView.CurrentCell = value
                    Catch ex As Exception

                    End Try
                Case "tbExamples"
                    Try
                        Me.ExamplesEditor.Document.InsertText(DocumentModificationType.Custom, Me.ExamplesEditor.SelectedView.Selection.FirstOffset, " Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpaceText)
                        'Me.ExamplesEditor.SelectedView.InsertText(" Time: " + Now.ToLongTimeString.ToString.Trim & My.Resources.LineBlankSpace)
                        Me.ExamplesEditor.SelectedView.Selection.SelectRange(Me.ExamplesEditor.SelectedView.Selection.FirstOffset, 0)

                    Catch ex As Exception

                    End Try
            End Select


        End Sub

#End Region

#Region "Methods"

        ''' <summary>
        ''' Type Function Parse XML option comments
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="XMLOptionComment">Parameter XMLOptionComment As <seealso cref= "System.String"/></param>
        ''' <param name="StartPlaceHolder">Parameter StartPlaceHolder As <seealso cref= "System.String"/></param>
        ''' <param name="EndPlaceHolder">Parameter EndPlaceHolder As <seealso cref= "System.String"/></param>
        ''' <returns>
        ''' <seealso cref="System.array"/> As System.array
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:39:06 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function ParseXMLOptionComments(ByVal XMLOptionComment As String, ByVal StartPlaceHolder As String, ByVal EndPlaceHolder As String) As String()
            Dim lResult As String() = Nothing
            If String.IsNullOrEmpty(XMLOptionComment) Then
                Return lResult
            End If

            Return lResult
        End Function

        ''' <summary>The Function Get system type ref
        ''' </summary>
        ''' <param name="ValueType">Parameter ValueType As <seealso cref= "System.String"/></param>
        ''' <returns><seealso cref="System.String"/> As System.String
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 7:00:55 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function GetSystemTypeRef(ByVal ValueType As String) As String
            Select Case ValueType

                Case My.Resources.SystemTypeLong, My.Resources.SystemType & My.Resources.SystemTypeInt64
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeInt64 & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeDouble
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeDouble & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeInteger, My.Resources.SystemType & My.Resources.SystemTypeInt32
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeInt32 & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeString
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeString & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeBoolean
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeBoolean & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeArrayList
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeArray & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeArray
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeArray & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeShort
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeShort & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeByte
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeByte & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeChar
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeChar & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeSByte
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeSByte & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeSingle
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeSingle & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeObject
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeObject & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case My.Resources.SystemTypeEventArgs
                    Return My.Resources.SeeAlsoCrefValue & My.Resources.LineBlankSpaceText & Chr(34) & My.Resources.SystemType & My.Resources.SystemTypeEventArgs & Chr(34) & My.Resources.CloseSeeAlsoCrefValue
                Case Else
                    Return ReplaceKnownAbbreviationWords(StringHelper.SplitFunctionNameToWordString(ValueType))
            End Select

        End Function

        ''' <summary>The Sub Show page
        ''' </summary>
        ''' <param name="Tb">Parameter Tb Tab page</param>
        ''' <param name="saved">Parameter saved Tab page</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 7:01:01 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Sub ShowPage(ByVal Tb As TabPage, _
                        ByVal saved As TabPage)

            If Not XMLCommentTabControl.TabPages.Contains(Tb) Then
                XMLCommentTabControl.TabPages.Add(saved)
            End If

        End Sub

        ''' <summary>The Sub Hide page
        ''' </summary>
        ''' <param name="Tb">Parameter Tb Tab page</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 7:01:09 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Sub HidePage(ByVal Tb As TabPage)

            If XMLCommentTabControl.TabPages.Contains(Tb) Then

                Dim index As Integer = XMLCommentTabControl.TabPages.IndexOf(Tb)
                XMLCommentTabControl.TabPages.RemoveAt(index)
            End If
        End Sub

        ''' <summary>The Function Replace known abbreviation words
        ''' </summary>
        ''' <param name="text">Parameter text As <seealso cref= "System.String"/></param>
        ''' <returns><seealso cref="System.String"/> As System.String
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<term>Term</term>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' <item>
        ''' 		<term>Developer: Danny C. McNaught<para>Developer Company: EDS</para> <para>Developer Phone: (919) 325-7311</para> <para>Developer Email: danny.mcnaught@eds.com</para> <para>Developed on: W2PZZ50H01</para> <para>Date: 9/10/2007</para><para>Time: 7:01:13 AM</para></term>
        ''' 		<description>Created XML Comment. </description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function ReplaceKnownAbbreviationWords(ByVal text As String) As String
            Dim words As String() = text.Split(New Char() {My.Resources.LineBlankSpaceText})
            Dim firstWord As Boolean = True
            For Each word As String In words
                For num As Integer = 0 To CType(KnownAbbreviations.Length / 2 - 1, Integer)
                    If StringHelper.Compare(word, KnownAbbreviations(num * 2)) Then
                        ' Replace abbreviation with full word
                        Dim fullName As String = KnownAbbreviations(num * 2 + 1)
                        If firstWord Then
                            fullName = StringHelper.ToUpper(fullName(0)) + fullName.Substring(1)
                            ' Make first letter big
                        End If
                        text = text.Replace(word, fullName)
                    End If
                Next
                ' for if
                firstWord = False
            Next
            ' foreach
            ' While we are at it, remove all " _ " strings!
            text = text.Replace(My.Resources.UnderScoreText, My.Resources.LineBlankSpaceText).Trim

            ' Return result
            Return text
        End Function

        ''' <summary>
        ''' Type Function Handle summary macro replacement
        ''' <para>Class Name: TabbedLayout</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\TabbedLayout.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="MacroText">Parameter MacroText As <seealso cref= "System.String"/></param>
        ''' <param name="DocumentName">Parameter DocumentName Dev express. code rush. core. text document</param>
        ''' <param name="NameSpaceName">Parameter NameSpaceName As <seealso cref= "System.String"/></param>
        ''' <param name="strSummary">Parameter strSummary As <seealso cref= "System.String"/></param>
        ''' <returns>
        ''' <seealso cref="System.String"/> As System.String
        ''' </returns>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:39:17 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Function HandleSummaryMacroReplacement(ByVal MacroText As String, ByVal DocumentName As DevExpress.CodeRush.Core.TextDocument, ByVal NameSpaceName As String, ByVal strSummary As String) As String
            Dim activeSection As LanguageElement
            activeSection = CodeRush.Source.Active

            If Not MacroText = String.Empty Then
                Dim tempArray() As String = MacroText.Split("@@@@")
                Dim SplitItem As String = String.Empty
                Try
                    For Each SplitItem In tempArray
                        If SplitItem.Contains(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.FileNamePlaceHolderMacro) Then
                            SplitItem = SplitItem.Replace(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.FileNamePlaceHolderMacro, activeSection.GetSourceFile.Name)
                            strSummary += SplitItem & Chr(10)
                        ElseIf SplitItem.Contains(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.FilePathNamePlaceHolderMacro) Then
                            SplitItem = SplitItem.Replace(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.FilePathNamePlaceHolderMacro, activeSection.GetFullPath)
                            strSummary += SplitItem & Chr(10)
                        ElseIf SplitItem.Contains(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.ClassNamePlaceHolderMacro) Then
                            SplitItem = SplitItem.Replace(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.ClassNamePlaceHolderMacro, activeSection.GetClass.Name)
                            strSummary += SplitItem & Chr(10)
                        ElseIf SplitItem.Contains(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.DevNamePlaceHolderMacro) Then
                            SplitItem = SplitItem.Replace(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.DevNamePlaceHolderMacro, DeveloperName)
                            If Not DeveloperName = String.Empty Then
                                strSummary += SplitItem & Chr(10)
                            End If
                        ElseIf SplitItem.Contains(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.ProjectNamePlaceHolderMacro) Then
                            SplitItem = SplitItem.Replace(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.ProjectNamePlaceHolderMacro, activeSection.Project.Name)
                            strSummary += SplitItem & Chr(10)
                        ElseIf SplitItem.Contains(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.SolutionNamePlaceHolderMacro) Then
                            SplitItem = SplitItem.Replace(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.SolutionNamePlaceHolderMacro, activeSection.Solution.Name)
                            strSummary += SplitItem & Chr(10)
                        ElseIf SplitItem.Contains(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.NameSpacePlaceHolderMacro) Then
                            Try
                                NameSpaceName = String.Empty
                                NameSpaceName = activeSection.GetNamespace.Name
                            Catch ex As Exception
                                NameSpaceName = String.Empty
                            End Try
                            If NameSpaceName <> String.Empty Then
                                SplitItem = SplitItem.Replace(My.Resources.KeyPressTriggersOptionsTriggerKey & My.Resources.NameSpacePlaceHolderMacro, NameSpaceName)
                                strSummary += SplitItem & Chr(10)
                            End If
                        Else
                            Select Case SplitItem.Trim
                                Case String.Empty
                                    Exit Select
                                Case vbLf
                                    Exit Select
                                Case vbCrLf
                                    Exit Select
                                Case Chr(10)
                                    Exit Select
                                Case Else
                                    strSummary += SplitItem & Chr(10)
                            End Select
                        End If
                    Next
                Catch ex As Exception
                    
                End Try
                If strSummary.EndsWith(Chr(10)) Then
                    strSummary = strSummary.Substring(0, strSummary.Length - 1)
                End If
                If strSummary.EndsWith("</para>") AndAlso Not strSummary.StartsWith("<para>") Then
                    strSummary = strSummary.Substring(0, strSummary.Length - "</para>".Length)
                End If
                Return Chr(10) & strSummary
            Else
                Return String.Empty
            End If

        End Function
#End Region

    End Class
End Namespace